home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Computer Select (Limited Edition)
/
Computer Select.iso
/
pcmag
/
v11n10
/
savemac.bas
< prev
next >
Wrap
BASIC Source File
|
1991-08-22
|
308b
|
16 lines
10 REM a$="filename for list of macros"
20 a$ = "c:\dos\mac.dat"
30 REM b$="filename for loading macros"
40 b$ = "c:\dos\loadmac.bat"
50 OPEN a$ FOR INPUT AS 1
60 OPEN b$ FOR OUTPUT AS 2
65 IF EOF(1) THEN 200
70 INPUT #1, c$
80 PRINT #2, "doskey " + c$
90 GOTO 65
200 CLOSE 1, 2
210 SYSTEM